home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
wc15_b.arc
/
SCHEDUL1.WMS
< prev
next >
Wrap
Text File
|
1991-03-22
|
2KB
|
65 lines
;WinComm Dialing Directory
month$="Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"
hs = FOPEN(2,"dial.que") ; dialing que must already be setup
if(hs==-1){
PUTSESSINT(71,0)
HALT
}
else {
a$ = FREADLN(hs)
hd=FOPEN(4096,"t1.txt")
b$=FREADLN(hs)
WHILE(NULL(b$) == 0)
FWRITE(hd,LEN(b$),b$)
b$=FREADLN(hs)
WEND
FCLOSE(hs) FCLOSE(hd)
DELETEFILE("dial.que")
RENAME("t1.txt","dial.que")
b$=EXTRACT(CHAR(9),a$,2)
IF(NULL(b$)) PUTSESSINT(71,0)
ELSE {
d$= EXTRACT(CHAR(9),a$,4)
f$=STRTIME(TIME?)
m$ = LEFT(d$,3)
m=0 DO m=m+1 UNTIL(CMP(m$,EXTRACT(",",month$,m)))
d=VALINT(MID(d$,5,2))
h=VALINT(MID(d$,8,2))
min=VALINT(MID(d$,11,2))
y=VALINT(MID(f$,23,2))
time = INTTIME(h,d,m,y)+(60*min)
if(time>TIME?){
var1$=STRTIME(TIME?)
var2$=STRTIME(time)
i = TIME?+1
DIALOGBOX 69, 18, 142, 69, 29, "Waiting to Connect"
DEFCANCELBUTTON 48, 52, 50, 14, "&Cancel"
RTEXT 1, 9, 62, 8, "Current Time:"
RTEXT 1, 22, 62, 8, "Activation Time:"
CTEXT 4, 40, 134, 8, "Press Cancel to terminate scheduler:"
VTEXT 66, 9, 74, 9, VAR1$
VTEXT 66, 22, 74, 9, VAR2$
DEND
loop:
if(DIALOG? !=255){
PUTSESSINT(71,0)
HALT
}
if(time?>=time) DESTROYDLG
else{
if(TIME?>i){
var1$=STRTIME(TIME?)
i=TIME?+1
UPDATEDLG(16)
}
GOTO loop
}
}
OPEN(b$+".wsf","",5)
}
HALT
}
END